home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / TESTPRNT.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1982-03-14  |  256 b   |  15 lines
  1. 250  WIDTH "lpt1:",255
  2. 265  CRL = 0
  3. 270  FOR Y1 = 0 TO 7
  4. 280  CRL = CRL + 2^Y1
  5. 290  PRINT Y1;" - ";CRL
  6. 319  LPRINT CHR$(27);"K";CHR$(63);CHR$(1);
  7. 320  LPRINT STRING$(255,CRL);STRING$(64,CRL);
  8. 325  LPRINT
  9. 460  NEXT
  10. 470  SCREEN 0,1
  11. 480  WIDTH 40
  12. 490  CLS
  13. 500  PRINT " "
  14. 510  PRINT "    PRINT COMPLETE"
  15.